
<?php

$file_old = fopen('palabras.xml', 'r');
$file_new = fopen('test.xml.tmp', 'w');

if ($file_old) {

       while (!feof($file_old)) {
              $line = fgets($file_old);

              if (preg_match("*</palabras>*", $line)) {
                     break;
              }

              fwrite($file_new, $line);
       }
} else {
       $line = "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n<!DOCTYPE palabras SYSTEM \"palabras.dtd\" >\n<palabras>\n";
       fwrite($file_new, "</palabras>");
}

$count = 0;
$file = fopen("datos-entrada.txt", "r");
while (!feof($file)) {

       $arreglo = array();

       while (!feof($file)) {

              $line = fgets($file);

              if ($line[0] == '$') {
                     $arreglo[] = "";
                     $count++;
                     continue;
              }

              if ($line == "\n") {
                     $line = fgets($file);
                     break;
              }

              $line = preg_replace("[\n|\r|\n\r]", ' ', $line);

              $arreglo[] = html_entity_decode((utf8_encode($line)));
              $count++;
       }

       if ($count == 16) {

              fwrite($file_new, "\t<palabra>\n");
              fwrite($file_new, "\t\t<espanolComun>$arreglo[0]</espanolComun>\n");
              fwrite($file_new, "\t\t<categoriaGramatical>$arreglo[1]</categoriaGramatical>\n");
              fwrite($file_new, "\t\t<definicion>$arreglo[2]</definicion>\n");
              fwrite($file_new, "\t\t<acepcionVenezuela>$arreglo[3]</acepcionVenezuela>\n");
              fwrite($file_new, "\t\t<acepcionColombia>$arreglo[4]</acepcionColombia>\n");
              fwrite($file_new, "\t\t<acepcionEcuador>$arreglo[5]</acepcionEcuador>\n");
              fwrite($file_new, "\t\t<acepcionPeru>$arreglo[6]</acepcionPeru>\n");
              fwrite($file_new, "\t\t<ejemploVenezuela>$arreglo[7]</ejemploVenezuela>\n");
              fwrite($file_new, "\t\t<fuenteVenezuela>$arreglo[8]</fuenteVenezuela>\n");
              fwrite($file_new, "\t\t<ejemploColombia>$arreglo[9]</ejemploColombia>\n");
              fwrite($file_new, "\t\t<fuenteColombia>$arreglo[10]</fuenteColombia>\n");
              fwrite($file_new, "\t\t<ejemploEcuador>$arreglo[11]</ejemploEcuador>\n");
              fwrite($file_new, "\t\t<fuenteEcuador>$arreglo[12]</fuenteEcuador>\n");
              fwrite($file_new, "\t\t<ejemploPeru>$arreglo[13]</ejemploPeru>\n");
              fwrite($file_new, "\t\t<fuentePeru>$arreglo[14]</fuentePeru>\n");
              fwrite($file_new, "\t\t<ambitoTematico>$arreglo[15]</ambitoTematico>\n");
              fwrite($file_new, "\t</palabra>\n");
       }

       $count = 0;
}

fwrite($file_new, "</palabras>");

unlink('palabras.xml');
rename('test.xml.tmp', 'palabras.xml');

?>


